7 POKE53280,0:POKE53281,0
8 PRINT"[147]"
9 DIM Q(600):DIMG(100)
10 FOR X=1TO160:PRINT"[144] ";:NEXT
11 FOR X=1TO40:PRINT" ";:NEXT
12 FOR X=1TO40:PRINT"[129] ";:NEXT
13 FOR X=1TO40:PRINT"[158] ";:NEXT
14 FOR X=1TO40:PRINT" ";:NEXT
15 FOR X=1TO40:PRINT" ";:NEXT
16 FOR X=1TO40:PRINT"[156] ";:NEXT
18 PRINT"[146][149]SP[129]E[158]C[153]TRUM V1.0"
19 PRINT"COPYRIGHT 1992 GREG HARMAN"
20 PRINT"[158]>>>PRESS ANY KEY<<<"
22 GET A$:IFA$=""THEN 22
23 PRINT"[147]"
24 PRINT"THIS PROGRAM IS SHAREWARE. IF YOU USE"
25 PRINT"IT AFTER YOUR TRIAL PERIOD OF ONE WEEK,"
26 PRINT"PLEASE HAVE THE COURTESY TO REGISTER "
27 PRINT"YOUR COPY BY SENDING A DONATION, ALONG"
28 PRINT"WITH ANY QUESTIONS OR COMMENTS TO:"
29 PRINT"GREG HARMAN "
30 PRINT"514 30TH WEST"
31 PRINT"BILLINGS, MT 59102"
32 PRINT"REGISTRATION IS $6."
34 PRINT"WITH REGISTRATION COMES FREE SUPPORT "
35 PRINT"VIA MAIL, AND A PRINTED COPY OF THE"
36 PRINT"INSTRUCTIONS. I WILL ALSO NOTIFY YOU"
37 PRINT"OF ANY NEW VERSIONS, AND GIVE YOU"
38 PRINT"A 50% DISCOUNT ON REGISTRATION FEES"
39 PRINT"FOR THAT VERSION."
45 PRINT"[158]>>PRESS ANY KEY<<"
47 GETA$:IFA$=""THEN47
50 PRINT"[147]     [129]SP[129]EC[153]TRU[156]M V1.0"
51 PRINT"      COPYRIGHT 1992 GREG HARMAN"
52 PRINT"         MAIN MENU"
53 PRINT"         [163][163][163][163][163][163][163][163][163]"
54 PRINT"1. SPRITE EDITOR"
55 PRINT"2. MULTI-COLOR SPRITE EDITOR"
56 PRINT"3. 40 X 25 SCREEN EDITOR"
57 PRINT"4. HI-RES SCREEN EDITOR"
58 PRINT"5. MULTI-COLOR HI-RES EDITOR"
59 PRINT"6. INSTRUCTIONS"
61 GETE:IFE=0 THEN 61
62 IF E=1 THEN 100
63 IF E=2 THEN 200
64 IF E=3 THEN 300
65 IF E=4 THEN 400
66 IF E=5 THEN 500
67 IF E=6 THEN 600
99 GOTO 60
100 POKE198,4:PRINT"[147]LOAD"CHR$(34)"SPRITE EDITOR";
102 PRINTCHR$(34)",8";
104 POKE631,13:POKE632,82:POKE633,117:POKE634,13
105 END
200 POKE198,4:PRINT"[147]LOAD"CHR$(34)"MULTI SPRITE";
202 PRINTCHR$(34)",8";
204 POKE631,13:POKE632,82:POKE633,117:POKE634,13
205 END
300 POKE198,4:PRINT"[147]LOAD"CHR$(34)"40 X 25 EDITOR";
302 PRINTCHR$(34)",8";
304 POKE631,13:POKE632,82:POKE633,117:POKE634,13
305 END
400 POKE198,4:PRINT"[147]LOAD"CHR$(34)"HI-RES EDITOR";
402 PRINTCHR$(34)",8";
404 POKE631,13:POKE632,82:POKE633,117:POKE634,13
405 END
500 POKE198,4:PRINT"[147]LOAD"CHR$(34)"MULTI HI-RES";
502 PRINTCHR$(34)",8";
504 POKE631,13:POKE632,82:POKE633,117:POKE634,13
505 END
600 INPUT"[147]SCREEN OR PRINTER (S/P)";R$:D=3:IFR$="P"THEND=4:S=7
602 OPEN1,8,2,"DOCS,S,R":OPEN4,D,S:PRINT"[147]":PRINTCHR$(14)
604 GET#1,A$:IFST=0THENPRINT#4,A$;:WAIT198,1,1:POKE198,0:GOTO604
606 PRINT#4:CLOSE1:CLOSE4:GOTO 50